home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dupsplf.arc / DUPSPLF.EXE / arc / DUPSPLF.CMD < prev    next >
OS/2 REXX Batch file  |  1988-01-25  |  2KB  |  27 lines
  1.              CMD        PROMPT('Duplicate Spool File')
  2.              PARM       KWD(FILE) TYPE(*NAME) LEN(10) MIN(1) +
  3.                           EXPR(*YES) PROMPT('Spool File Name:')
  4.              PARM       KWD(JOB) TYPE(QUAL1) DFT(*) SNGVAL(*) +
  5.                           PROMPT('Job Name or * for Current Job:')
  6.              PARM       KWD(PRTFILE) TYPE(QUAL2) PROMPT('Printer File +
  7.                           Name:')
  8.              PARM       KWD(OUTQ) TYPE(QUAL3) PROMPT('Spooled Outputq +
  9.                           Name:')
  10.              PARM       KWD(SPLNBR) TYPE(*CHAR) LEN(6) DFT(*ONLY) +
  11.                           RANGE(0001 9999) SPCVAL((*ONLY *LAST)) +
  12.                           PROMPT('Spool File Nbr or *only,*last:')
  13.  QUAL1:      QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
  14.              QUAL       TYPE(*NAME) LEN(10) MIN(0) EXPR(*YES) +
  15.                           PROMPT('User Name:')
  16.              QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
  17.                           MIN(0) FULL(*YES) PROMPT('Job Number:')
  18.  QUAL2:      QUAL       TYPE(*NAME) LEN(10) DFT(QSYSPRT) EXPR(*YES)
  19.              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
  20.                           SPCVAL((*LIBL)) EXPR(*YES) PROMPT('Library +
  21.                           Name:')
  22.  QUAL3:      QUAL       TYPE(*NAME) LEN(10) DFT(*PRTFILE) +
  23.                           SPCVAL((*PRTFILE)) EXPR(*YES)
  24.              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
  25.                           SPCVAL((*LIBL)) EXPR(*YES) PROMPT('Library +
  26.                           Name:')
  27.